Appendix for comment on Nianogo et al.

1 Medicaid expansion by state, 2019, available CVD outcome data

1.1 States with non-missing outcome data for the Hispanic subpopulation

#Number of non-missing states
hispanic_complete_geo %>%
  filter(year==2019) %>% 
  st_set_geometry(NULL) %>% 
  group_by(treated) %>% 
  summarise(n=n())

## # A tibble: 2 × 2
##   treated     n
##     <dbl> <int>
## 1       0     7
## 2       1    20

hispanic_complete_geo %>% 
  filter(year==2019) %>% 
  dplyr::select(starts_with("state_abb"),starts_with("treated"),starts_with("year"),race) %>% 
  mutate(treated_char=as.character(treated)) %>% 
  mapview(zcol="treated_char",
          layer.name="Medicaid expansion state, 2019")

1.2 States with non-missing data for the Black subpopulation

#Number of non-missing states
black_complete_geo %>%
  filter(year==2019) %>% 
  st_set_geometry(NULL) %>% 
  group_by(treated) %>% 
  summarise(n=n())

## # A tibble: 2 × 2
##   treated     n
##     <dbl> <int>
## 1       0    12
## 2       1    25

black_complete_geo %>% 
  filter(year==2019) %>% 
  dplyr::select(starts_with("state_abb"),starts_with("treated"),starts_with("year"),race) %>% 
  mutate(treated_char=as.character(treated)) %>% 
  mapview(zcol="treated_char",
          layer.name="Medicaid expansion state, 2019")

2 Replicate Nianogo et al., Table 1, main text